home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / tzone.bas < prev    next >
Encoding:
BASIC Source File  |  1979-12-31  |  384 b   |  12 lines
  1. 10 CLS
  2. 20 KEY OFF
  3. 30 CLS:COLOR 15:LOCATE 10:PRINT "You have now entered . . .    ";:COLOR 24:PRINT "T h e    T w i l i g h t    Z o n e"
  4. 40 FOR X=0 TO 6
  5. 50 PLAY"MS O"+STR$(X)+" L15; E-EE-C"
  6. 60 NEXT X
  7. 70 FOR X=200 TO 37 STEP -2
  8. 80 SOUND X,.5
  9. 90 NEXT X
  10. 100 COLOR 7
  11. 110 CLS:END
  12.